0 CLEAR,&HBEFF:A$="8601B7620B8EBF12BF620C8EBF17BF620E395055D4BF2980D6B1620B25037E07F3AE8C037E2B38BF153412BD0EF51F129DCABD0E02E68027168D16585858583404E68027088D0AEBE0E7A020E835043592C1412D02C007C03039"
1 SCREEN4,6,6:CLS:PRINT"IMPLANTATION de langage Machine":PRINT"Fonction PUT":PRINT"Copyright 1985 by Fabrice":PRINT:IFPEEK(&H611C)=101THENFORT=1TO90:POKE&HBEFF+T,VAL("&H"+MID$(A$,T*2-1,2):NEXT:EXEC&HBF00:NEWELSEPRINT"COMMANDE ILLEGALE A CAUSE DU DOS":NEW